****************************************************************************
* File-Name: 		brazilcodes.do
* Date:		 02/18/2020
* Author: 		Fred Batista
* Purpose: 		Analysis of Brazil experiment
* Data used: 		brazildata.dta
* Data Output:	None	*/
****************************************************************************


** balance checks (control for region, gender, race, ideology, religiosity)

mlogit condition age2 education woman approval2 right center left religiosity white black brown single children i.region, base(2)

* priming answers to sexism

reg manmorecorrupt i.primed##i.female_inc##i.corruption age2 education woman approval2 left center right religiosity white black brown single children i.region

reg womenpurity i.primed##i.female_inc##i.corruption age2 education woman approval2 left center right religiosity white black brown single children i.region

reg menbetterleaders c.primed##c.female_inc##c..corruption age2 education woman approval2 right center left religiosity white black brown single children i.region

test (primed=0) (female_inc=0) (corruption=0) (c.primed#c.female_inc=0) (c.primed#c.corruption=0) (c.female_inc#c.corruption=0) (c.primed#c.female_inc#c.corruption=0), mtest(h)

*margins, at(primed=(0(1)1) female_inc=(0(1)1) corruption=(0(1)1))

grstyle init

grstyle color background white

margins, at(primed=(0) female_inc=(0(1)1) corruption=(0(1)1))

marginsplot, x(female_inc corruption) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("Predicted Hostile Sexism") xtitle(" ") xlabel(0.5 " " 1 `" "Honest" "Male" "Politician" "' 2 `" "Corrupt" "Male" "Politician" "' 3 `" "Honest" "Female" "Politician" "' 4 `" "Corrupt" "Female" "Politician" "' 4.5 " ", noticks labsize(medsmall)) ylabel(.3(.05).5,nogrid) title("Treatment Before Moderator") yscale(noextend)  plotregion(style(none)) plotregion(fcolor(white)) graphregion(fcolor(white)) ysize(8) xsize(8) saving(branoprimehos)

margins, at(primed=(1) female_inc=(0(1)1) corruption=(0(1)1))

marginsplot, x(female_inc corruption) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("") xtitle(" ") xlabel(0.5 " " 1 `" "Honest" "Male" "Politician" "' 2 `" "Corrupt" "Male" "Politician" "' 3 `" "Honest" "Female" "Politician" "' 4 `" "Corrupt" "Female" "Politician" "' 4.5 " ", noticks labsize(medsmall)) ylabel(.3(.05).5,nogrid) title("Treatment After Moderator") yscale(noextend)  plotregion(style(none)) plotregion(fcolor(white)) graphregion(fcolor(white)) ysize(8) xsize(8) saving(braprimehos)

* combining graphs

graph combine branoprimehos.gph braprimehos.gph, ycommon title(Brazil, size(vlarge)) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(14) iscale(1) saving(brahos)


reg womencontrol i.primed##i.female_inc##i.corruption age2 education woman approval2 left center right religiosity white black brown single children i.region

reg benevolent c.primed##c.female_inc##c.corruption age2 education woman approval2 right center left religiosity white black brown single children i.region

test (primed=0) (female_inc=0) (corruption=0) (c.primed#c.female_inc=0) (c.primed#c.corruption=0) (c.female_inc#c.corruption=0) (c.primed#c.female_inc#c.corruption=0), mtest(h)

*margins, at(primed=(0(1)1) female_inc=(0(1)1) corruption=(0(1)1))

margins, at(primed=(0) female_inc=(0(1)1) corruption=(0(1)1))

marginsplot, x(female_inc corruption) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("Predicted Benevolent Sexism") xtitle(" ") xlabel(0.5 " " 1 `" "Honest" "Male" "Politician" "' 2 `" "Corrupt" "Male" "Politician" "' 3 `" "Honest" "Female" "Politician" "' 4 `" "Corrupt" "Female" "Politician" "' 4.5 " ", noticks labsize(medsmall)) ylabel(.25(.05).5,nogrid) title("Treatment Before Moderator") yscale(noextend)  plotregion(style(none)) plotregion(fcolor(white)) graphregion(fcolor(white)) ysize(8) xsize(8) saving(branoprimeben)

margins, at(primed=(1) female_inc=(0(1)1) corruption=(0(1)1))

marginsplot, x(female_inc corruption) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("") xtitle(" ") xlabel(0.5 " " 1 `" "Honest" "Male" "Politician" "' 2 `" "Corrupt" "Male" "Politician" "' 3 `" "Honest" "Female" "Politician" "' 4 `" "Corrupt" "Female" "Politician" "' 4.5 " ", noticks labsize(medsmall)) ylabel(.25(.05).5,nogrid) title("Treatment After Moderator") yscale(noextend)  plotregion(style(none)) plotregion(fcolor(white)) graphregion(fcolor(white)) ysize(8) xsize(8) saving(braprimeben)

* combining graphs

graph combine branoprimeben.gph braprimeben.gph, ycommon title(Brazil, size(vlarge)) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(14) iscale(1) saving(braben)

reg hostile i.primed##i.female_inc##i.corruption age2 education woman approval2 left center right religiosity white black brown single children i.region



* MAIN MODELS WITHOUT MODERATORS

* full sample

reg trust c.female_inc##c.corruption woman right center left religiosity white black brown i.region

reg evaluation c.female_inc##c.corruption woman right center left religiosity white black brown i.region

reg remove c.female_inc##c.corruption woman right center left religiosity white black brown i.region

reg popularity c.female_inc##c.corruption woman right center left religiosity white black brown i.region

margins, dydx(corruption) at(female_inc=(0(1)1))

*margins, at(female_inc=(0(1)1) corruption=(0(1)1))

marginsplot, x(female_inc) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("Treatment Effect", height(7)) xtitle("") xlabel(-.5 " " 0 `" "Male" "Incumbent" "' 1 `" "Female" "Incumbent" "' 1.5 " ", noticks labsize(large)) ylabel(-.3(.05)-.55,nogrid) title(Brazil, color(black) size(vlarge)) subtitle(Full Sample, size(medlarge) span) yscale(noextend)  plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(bramain)

* no controls

reg popularity c.female_inc##c.corruption


* male

reg trust c.female_inc##c.corruption woman right center left religiosity white black brown i.region if woman==0

reg evaluation c.female_inc##c.corruption woman right center left religiosity white black brown i.region if woman==0

reg remove c.female_inc##c.corruption woman right center left religiosity white black brown i.region if woman==0

reg popularity c.female_inc##c.corruption right center left religiosity white black brown i.region if woman==0

margins, dydx(corruption) at(female_inc=(0(1)1))

*margins, at(female_inc=(0(1)1) corruption=(0(1)1))

marginsplot, x(female_inc) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("Treatment Effect", height(7)) xtitle(" ") xlabel(-.5 " " 0 `" "Male" "Incumbent" "' 1 `" "Female" "Incumbent" "' 1.5 " ", noticks labsize(large)) ylabel(-.3(.05)-.55,nogrid) title("Male Subjects", color(black)) yscale(noextend)  plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(malesbranoint)

* female

reg trust c.female_inc##c.corruption woman right center left religiosity white black brown i.region if woman==1

reg evaluation c.female_inc##c.corruption woman right center left religiosity white black brown i.region if woman==1

reg remove c.female_inc##c.corruption woman right center left religiosity white black brown i.region if woman==1

reg popularity c.female_inc##c.corruption right center left religiosity white black brown i.region if woman==1

margins, dydx(corruption) at(female_inc=(0(1)1))

*margins, at(female_inc=(0(1)1) corruption=(0(1)1))

marginsplot, x(female_inc) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("", height(7)) xtitle(" ") xlabel(-.5 " " 0 `" "Male" "Incumbent" "' 1 `" "Female" "Incumbent" "' 1.5 " ", noticks labsize(large)) ylabel(-.3(.05)-.55,nogrid) title("Female Subjects", color(black)) yscale(noextend)  plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(femalesbranoint) 

* combining graphs for males and females

graph combine malesbranoint.gph femalesbranoint.gph, ycommon title(Brazil, size(vlarge)) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(14) iscale(1) saving(bragender)

* interaction by gender (not sig)

reg popularity c.female_inc##c.corruption##i.woman right center left religiosity white black brown i.region


** MODELS WITH MODERATORS (control for sex and ideology) 

* benevolent

* all sample

reg trust c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region

reg evaluation c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region

reg remove c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region

reg popularity c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region

margins, dydx(corruption) at(female_inc=(0(1)1)  benevolent=(0(.25)1))

marginsplot, x(benevolent) plot(female_inc) plot1(mcolor(black) lcolor(black)) plot2(mcolor(gs8) lcolor(gs8)) ci1(lcolor(black) msize(vtiny)) ci2(lcolor(gs8) msize(vtiny)) title(Brazil, color(black) size(vlarge)) subtitle(Full Sample, span) ytitle("Treatment Effect", height(7)) xtitle("Benevolent Sexism", size(medlarge) height(5)) xlabel(0 "0" .25 ".25" .5 ".50" .75 ".75" 1 "1", noticks labsize(medium)) ylabel(, labsize(medium) nogrid) legend(col(2) order(1 "{stSans:Male Politician}" 2 "{stSans:Female Politician}") size(medium) ring(1) row(1)region(lstyle(none)) col(2) colg(7)) yscale(noextend) xscale(noextend) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(braint)

* margins, at(female_inc=(0(1)1) corruption=(0(1)1) benevolent=(0(1)1))

* male

reg trust c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==0

reg evaluation c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==0

reg remove c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==0

reg popularity c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==0

margins, dydx(corruption) at(female_inc=(0(1)1)  benevolent=(0(.25)1))

marginsplot, x(benevolent) plot(female_inc) plot1(mcolor(black) lcolor(black)) plot2(mcolor(gs8) lcolor(gs8)) ci1(lcolor(black) msize(vtiny)) ci2(lcolor(gs8) msize(vtiny)) title("Male Subjects", color(black)) ytitle("Treatment Effect", height(7)) xtitle("Benevolent Sexism", size(medlarge) height(5)) xlabel(0 "0" .25 ".25" .5 ".50" .75 ".75" 1 "1", noticks labsize(medium)) ylabel(0(.1)-.7, labsize(medium) nogrid) legend(col(2) order(1 "{stSans:Male Politician}" 2 "{stSans:Female Politician}") size(medium) ring(1) row(1) region(lstyle(none)) col(2) colg(7)) yscale(noextend) xscale(noextend) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(malebraint)

*margins, at(female_inc=(0(1)1) corruption=(0(1)1) benevolent=(0(1)1))

* female

reg trust c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==1

reg evaluation c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==1

reg remove c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==1

reg popularity c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if woman==1

margins, dydx(corruption) at(female_inc=(0(1)1)  benevolent=(0(.25)1))

marginsplot, x(benevolent) plot(female_inc) plot1(mcolor(black) lcolor(black)) plot2(mcolor(gs8) lcolor(gs8)) ci1(lcolor(black) msize(vtiny)) ci2(lcolor(gs8) msize(vtiny)) title("Female Subjects", color(black)) ytitle("", height(7)) xtitle("Benevolent Sexism", size(medlarge) height(5)) xlabel(0 "0" .25 ".25" .5 ".50" .75 ".75" 1 "1", noticks labsize(medium)) ylabel(0(.1)-.7, labsize(medium) nogrid) legend(col(2) order(1 "{stSans:Male Politician}" 2 "{stSans:Female Politician}") size(medium) ring(1) row(1) region(lstyle(none)) col(2) colg(7)) yscale(noextend) xscale(noextend) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(femalebraint)

*margins, at(female_inc=(0(1)1) corruption=(0(1)1) benevolent=(0(.25)1))

* combing graphs by gender

graph combine malebraint.gph femalebraint.gph, ycommon title(Brazil, size(vlarge)) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(14) saving(bragenderint)


* hostile

* all sample

reg trust c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity  white black brown i.region

reg evaluation c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity  white black brown i.region

reg remove c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity  white black brown i.region

reg popularity c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity  white black brown i.region

margins, dydx(corruption) at(female_inc=(0(1)1)  menbetterleaders=(0(1)1))

margins, at(female_inc=(0(1)1) corruption=(0(1)1) menbetterleaders=(0(1)1))

* male

reg trust c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==0

reg evaluation c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==0

reg remove c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==0


reg popularity c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==0

margins, dydx(corruption) at(female_inc=(0(1)1)  menbetterleaders=(0(1)1))

margins, at(female_inc=(0(1)1) corruption=(0(1)1) menbetterleaders=(0(1)1))

* female

reg trust c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==1

reg evaluation c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==1

reg remove c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==1

reg popularity c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if woman==1

margins, dydx(corruption) at(female_inc=(0(1)1)  menbetterleaders=(0(1)1))

margins, at(female_inc=(0(1)1) corruption=(0(1)1) menbetterleaders=(0(1)1))


* PRIMING?

* no interaction, full sample

reg trust c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==0

reg evaluation c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==0

reg remove c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==0

reg popularity c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==0

margins, dydx(corruption) at(female_inc=(0(1)1))

marginsplot, x(female_inc) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("Treatment Effect", height(7)) xtitle(" ") xlabel(-.5 " " 0 `" "Male" "Incumbent" "' 1 `" "Female" "Incumbent" "' 1.5 " ", noticks labsize(large)) ylabel(-.3(.05)-.55,nogrid) title("Treatment Before Moderator", color(black)) yscale(noextend)  plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(branoprimeate)

reg trust c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==1

reg evaluation c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==1

reg remove c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==1

reg popularity c.female_inc##c.corruption woman right center left religiosity white black brown i.region if primed==1

margins, dydx(corruption) at(female_inc=(0(1)1))

marginsplot, x(female_inc) plot1(mcolor(black) connect(none)) ci1(lcolor(black) msize(vtiny)) ytitle("", height(7)) xtitle("") xlabel(-.5 " " 0 `" "Male" "Incumbent" "' 1 `" "Female" "Incumbent" "' 1.5 " ", noticks labsize(large)) ylabel(-.3(.05)-.55,nogrid) title("Treatment After Moderator", color(black)) yscale(noextend)  plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(braprimeate)

*reg popularity c.female_inc##c.corruption##i.primed woman right center left religiosity white black brown i.region

* combing graphs by priming

graph combine branoprimeate.gph braprimeate.gph, ycommon title(Brazil, size(vlarge)) subtitle(Full Sample, span) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(14) iscale(1) saving(braateprime)


* no interaction, male

reg trust c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==0 & woman==0

reg evaluation c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==0 & woman==0

reg remove c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==0 & woman==0

reg popularity c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==0 & woman==0

reg trust c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==0

reg evaluation c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==0

reg remove c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==0

reg popularity c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==0

reg popularity c.female_inc##c.corruption##I.primed right center left religiosity white black brown i.region if woman==0


* no interaction, female

reg trust c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==0 & woman==1

reg evaluation c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==0 & woman==1

reg remove c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==0 & woman==1

reg popularity c.female_inc##c.corruption  right center left religiosity white black brown i.region if primed==0 & woman==1

reg trust c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==1

reg evaluation c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==1

reg remove c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==1

reg popularity c.female_inc##c.corruption right center left religiosity white black brown i.region if primed==1 & woman==1

reg popularity c.female_inc##c.corruption##I.primed right center left religiosity white black brown i.region if woman==1


* benevolent, full sample

reg trust c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==0

reg evaluation c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==0

reg remove c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==0

reg popularity c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==0

margins, dydx(corruption) at(female_inc=(0(1)1)  benevolent=(0(.25)1))

marginsplot, x(benevolent) plot(female_inc) plot1(mcolor(black) lcolor(black)) plot2(mcolor(gs8) lcolor(gs8)) ci1(lcolor(black) msize(vtiny)) ci2(lcolor(gs8) msize(vtiny)) title("Treatment Before Moderator", color(black)) ytitle("Treatment Effect", height(7)) xtitle("Benevolent Sexism", size(medlarge) height(5)) xlabel(0 "0" .25 ".25" .5 ".50" .75 ".75" 1 "1", noticks labsize(medium)) ylabel(0(.1)-.7, labsize(medium) nogrid) legend(col(2) order(1 "{stSans:Male Politician}" 2 "{stSans:Female Politician}") size(medium) ring(1) row(1) region(lstyle(none)) col(2) colg(7)) yscale(noextend) xscale(noextend) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(branoprimehte)


reg trust c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==1

reg evaluation c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==1

reg remove c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==1

reg popularity c.female_inc##c.corruption##c.benevolent woman right center left religiosity white black brown i.region if primed==1

margins, dydx(corruption) at(female_inc=(0(1)1)  benevolent=(0(.25)1))

marginsplot, x(benevolent) plot(female_inc) plot1(mcolor(black) lcolor(black)) plot2(mcolor(gs8) lcolor(gs8)) ci1(lcolor(black) msize(vtiny)) ci2(lcolor(gs8) msize(vtiny)) title("Treatment After Moderator", color(black)) ytitle("Treatment Effect", height(7)) xtitle("Benevolent Sexism", size(medlarge) height(5)) xlabel(0 "0" .25 ".25" .5 ".50" .75 ".75" 1 "1", noticks labsize(medium)) ylabel(0(.1)-.7, labsize(medium) nogrid) legend(col(2) order(1 "{stSans:Male Politician}" 2 "{stSans:Female Politician}") size(medium) ring(1) row(1)region(lstyle(none)) col(2) colg(7)) yscale(noextend) xscale(noextend) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(8) saving(braprimehte)

* combing graphs by priming

graph combine branoprimehte.gph braprimehte.gph, ycommon title(Brazil, size(vlarge)) subtitle(Full Sample, span) plotregion(style(none)) graphregion(color(white)) ysize(8) xsize(14) saving(brahteprime)

* benevolent, male

reg trust c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==0

reg evaluation c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==0

reg remove c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==0

reg popularity c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==0

reg trust c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==0

reg evaluation c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==0

reg remove c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==0

reg popularity c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==0

* benevolent, female

reg trust c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==1

reg evaluation c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==1

reg remove c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==1

reg popularity c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==0 & woman==1

reg trust c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==1

reg evaluation c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==1

reg remove c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==1

reg popularity c.female_inc##c.corruption##c.benevolent right center left religiosity white black brown i.region if primed==1 & woman==1


* menbetterleaders, full sample

reg trust c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==0

reg evaluation c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==0

reg remove c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==0

reg popularity c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==0

reg trust c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==1

reg evaluation c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==1

reg remove c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==1

reg popularity c.female_inc##c.corruption##c.menbetterleaders woman right center left religiosity white black brown i.region if primed==1

* menbetterleaders, male

reg trust c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==0

reg evaluation c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==0

reg remove c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==0

reg popularity c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==0

reg trust c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1 & woman==0

reg evaluation c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1 & woman==0

reg remove c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1 & woman==0

reg popularity c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1 & woman==0

* menbetterleaders, female

reg trust c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==1

reg evaluation c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==1

reg remove c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==1

reg popularity c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==0 & woman==1

reg trust c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1 & woman==1

reg evaluation c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1 & woman==1

reg remove c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1 & woman==1

reg popularity c.female_inc##c.corruption##c.menbetterleaders right center left religiosity white black brown i.region if primed==1& woman==1
